home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOOLPAS2 / ATCP.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-22  |  681b  |  41 lines
  1.  
  2. {$m 10000,10000,10000}
  3.  
  4. uses dos;
  5.  
  6. var
  7.    line: string;
  8.    fd:   text;
  9.    cmd:  string[128];
  10.    cp:   string;
  11.  
  12. begin
  13.    if paramcount <> 2 then
  14.    begin
  15.       writeln('usage: atcp filelist dest');
  16.       writeln('example: atcp $door.nam j:\tmp');
  17.       halt;
  18.    end;
  19.  
  20.    cp := fsearch('CP.EXE',getenv('PATH'));
  21.  
  22.    assign(fd,paramstr(1));
  23.    reset(fd);
  24.    while not eof(fd) do
  25.    begin
  26.       readln(fd,line);
  27.       if line > ' ' then
  28.       begin
  29.          cmd := line+' '+paramstr(2);
  30.          if cp > '' then
  31.             exec(cp,cmd)
  32.          else
  33.             exec(getenv('COMSPEC'),'/c copy '+cmd);
  34.       end;
  35.    end;
  36.  
  37.    close(fd);
  38. end.
  39.  
  40.  
  41.